/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / UserModifications / userTemplates.tcl

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 23 23 20 2d 2a 2d 54 63 | 6c 2d 2a 2d 0d 20 23 20 |## -*-Tc|l-*-. # |
|00000010| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000020| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000030| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000040| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000050| 23 23 23 0d 20 23 20 20 | 56 69 6e 63 65 27 73 20 |###. #  |Vince's |
|00000060| 41 64 64 69 74 69 6f 6e | 73 20 2d 20 61 6e 20 65 |Addition|s - an e|
|00000070| 78 74 65 6e 73 69 6f 6e | 20 70 61 63 6b 61 67 65 |xtension| package|
|00000080| 20 66 6f 72 20 41 6c 70 | 68 61 0d 20 23 20 0d 20 | for Alp|ha. # . |
|00000090| 23 20 20 46 49 4c 45 3a | 20 22 75 73 65 72 54 65 |#  FILE:| "userTe|
|000000a0| 6d 70 6c 61 74 65 73 2e | 74 63 6c 22 0d 20 23 20 |mplates.|tcl". # |
|000000b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000000c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000000d0| 20 20 20 63 72 65 61 74 | 65 64 3a 20 32 2f 38 2f |   creat|ed: 2/8/|
|000000e0| 39 37 20 7b 31 3a 30 37 | 3a 32 39 20 70 6d 7d 20 |97 {1:07|:29 pm} |
|000000f0| 0d 20 23 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. #     |        |
|00000100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000110| 20 20 20 6c 61 73 74 20 | 75 70 64 61 74 65 3a 20 |   last |update: |
|00000120| 32 2f 38 2f 39 37 20 7b | 31 3a 30 37 3a 32 39 20 |2/8/97 {|1:07:29 |
|00000130| 70 6d 7d 20 0d 20 23 20 | 20 41 75 74 68 6f 72 3a |pm} . # | Author:|
|00000140| 20 56 69 6e 63 65 20 44 | 61 72 6c 65 79 0d 20 23 | Vince D|arley. #|
|00000150| 20 20 45 2d 6d 61 69 6c | 3a 20 3c 64 61 72 6c 65 |  E-mail|: <darle|
|00000160| 79 40 66 61 73 2e 68 61 | 72 76 61 72 64 2e 65 64 |y@fas.ha|rvard.ed|
|00000170| 75 3e 0d 20 23 20 20 20 | 20 6d 61 69 6c 3a 20 44 |u>. #   | mail: D|
|00000180| 69 76 69 73 69 6f 6e 20 | 6f 66 20 45 6e 67 69 6e |ivision |of Engin|
|00000190| 65 65 72 69 6e 67 20 61 | 6e 64 20 41 70 70 6c 69 |eering a|nd Appli|
|000001a0| 65 64 20 53 63 69 65 6e | 63 65 73 2c 20 48 61 72 |ed Scien|ces, Har|
|000001b0| 76 61 72 64 20 55 6e 69 | 76 65 72 73 69 74 79 0d |vard Uni|versity.|
|000001c0| 20 23 20 20 20 20 20 20 | 20 20 20 20 4f 78 66 6f | #      |    Oxfo|
|000001d0| 72 64 20 53 74 72 65 65 | 74 2c 20 43 61 6d 62 72 |rd Stree|t, Cambr|
|000001e0| 69 64 67 65 20 4d 41 20 | 30 32 31 33 38 2c 20 55 |idge MA |02138, U|
|000001f0| 53 41 0d 20 23 20 20 20 | 20 20 77 77 77 3a 20 3c |SA. #   |  www: <|
|00000200| 68 74 74 70 3a 2f 2f 77 | 77 77 2e 66 61 73 2e 68 |http://w|ww.fas.h|
|00000210| 61 72 76 61 72 64 2e 65 | 64 75 2f 7e 64 61 72 6c |arvard.e|du/~darl|
|00000220| 65 79 2f 3e 0d 20 23 20 | 20 0d 20 23 20 23 23 23 |ey/>. # | . # ###|
|00000230| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000240| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000250| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000260| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000270| 0d 20 23 23 0d 0d 0d 70 | 72 6f 63 20 74 5f 64 65 |. ##...p|roc t_de|
|00000280| 66 61 75 6c 74 20 7b 20 | 63 6c 61 73 73 20 70 61 |fault { |class pa|
|00000290| 72 65 6e 74 20 7d 20 7b | 0d 09 72 65 74 75 72 6e |rent } {|..return|
|000002a0| 20 22 5c 72 a5 66 69 6c | 65 20 62 6f 64 79 a5 5c | "\r.fil|e body.\|
|000002b0| 72 22 0d 7d 0d 0d 70 72 | 6f 63 20 74 5f 6c 61 74 |r".}..pr|oc t_lat|
|000002c0| 65 78 20 7b 63 6c 61 73 | 73 20 70 61 72 65 6e 74 |ex {clas|s parent|
|000002d0| 20 73 75 62 74 79 70 65 | 20 7d 20 7b 0d 09 23 20 | subtype| } {..# |
|000002e0| 50 6f 73 73 69 62 6c 65 | 20 27 73 75 62 74 79 70 |Possible| 'subtyp|
|000002f0| 65 73 27 20 61 72 65 3a | 20 61 72 74 69 63 6c 65 |es' are:| article|
|00000300| 20 62 6f 6f 6b 20 6c 65 | 74 74 65 72 20 72 65 70 | book le|tter rep|
|00000310| 6f 72 74 20 73 6c 69 64 | 65 73 0d 09 73 65 74 20 |ort slid|es..set |
|00000320| 74 20 22 25 26 4c 61 54 | 65 58 5c 72 5c 72 5c 5c |t "%&LaT|eX\r\r\\|
|00000330| 64 6f 63 75 6d 65 6e 74 | 63 6c 61 73 73 5c 5b a5 |document|class\[.|
|00000340| 74 79 70 65 2d 73 69 7a | 65 a5 5c 5d 5c 7b 24 73 |type-siz|e.\]\{$s|
|00000350| 75 62 74 79 70 65 5c 7d | 5c 72 22 0d 09 69 66 20 |ubtype\}|\r"..if |
|00000360| 7b 24 73 75 62 74 79 70 | 65 20 21 3d 20 22 6c 65 |{$subtyp|e != "le|
|00000370| 74 74 65 72 22 20 7d 20 | 7b 0d 09 09 61 70 70 65 |tter" } |{...appe|
|00000380| 6e 64 20 74 20 22 5c 5c | 75 73 65 70 61 63 6b 61 |nd t "\\|usepacka|
|00000390| 67 65 5c 7b a5 70 61 63 | 6b 61 67 65 20 6e 61 6d |ge\{.pac|kage nam|
|000003a0| 65 73 a5 5c 7d 5c 72 22 | 0d 09 09 61 70 70 65 6e |es.\}\r"|...appen|
|000003b0| 64 20 74 20 22 5c 5c 62 | 65 67 69 6e 5c 7b 64 6f |d t "\\b|egin\{do|
|000003c0| 63 75 6d 65 6e 74 5c 7d | 5c 72 5c 72 a5 42 6f 64 |cument\}|\r\r.Bod|
|000003d0| 79 20 6f 66 20 64 6f 63 | 75 6d 65 6e 74 a5 5c 72 |y of doc|ument.\r|
|000003e0| 5c 72 22 0d 09 09 61 70 | 70 65 6e 64 20 74 20 22 |\r"...ap|pend t "|
|000003f0| 5c 5c 62 69 62 6c 69 6f | 67 72 61 70 68 79 5c 7b |\\biblio|graphy\{|
|00000400| a5 62 69 62 20 6e 61 6d | 65 73 a5 5c 7d 5c 72 22 |.bib nam|es.\}\r"|
|00000410| 0d 09 09 61 70 70 65 6e | 64 20 74 20 22 5c 5c 62 |...appen|d t "\\b|
|00000420| 69 62 6c 69 6f 67 72 61 | 70 68 79 73 74 79 6c 65 |ibliogra|phystyle|
|00000430| 5c 7b a5 62 69 62 73 74 | 79 6c 65 a5 5c 7d 5c 72 |\{.bibst|yle.\}\r|
|00000440| 22 0d 09 09 61 70 70 65 | 6e 64 20 74 20 22 5c 5c |"...appe|nd t "\\|
|00000450| 65 6e 64 5c 7b 64 6f 63 | 75 6d 65 6e 74 5c 7d 5c |end\{doc|ument\}\|
|00000460| 72 22 0d 09 09 72 65 74 | 75 72 6e 20 24 74 0d 09 |r"...ret|urn $t..|
|00000470| 7d 0d 09 23 20 6c 65 74 | 74 65 72 3a 0d 09 61 70 |}..# let|ter:..ap|
|00000480| 70 65 6e 64 20 74 20 22 | 5c 72 5c 5c 61 64 64 72 |pend t "|\r\\addr|
|00000490| 65 73 73 5c 7b 25 5c 72 | 5c 74 a5 79 6f 75 72 20 |ess\{%\r|\t.your |
|000004a0| 6e 61 6d 65 a5 5c 74 5c | 5c 5c 5c 5c 74 5c 72 22 |name.\t\|\\\\t\r"|
|000004b0| 0d 09 61 70 70 65 6e 64 | 20 74 20 22 5c 74 a5 79 |..append| t "\t.y|
|000004c0| 6f 75 72 20 61 64 64 72 | 65 73 73 a5 5c 74 5c 5c |our addr|ess.\t\\|
|000004d0| 5c 5c 5c 72 22 0d 09 61 | 70 70 65 6e 64 20 74 20 |\\\r"..a|ppend t |
|000004e0| 22 5c 74 a5 6d 6f 72 65 | 20 61 64 64 72 65 73 73 |"\t.more| address|
|000004f0| a5 5c 74 5c 5c 5c 5c 5c | 72 22 0d 09 61 70 70 65 |.\t\\\\\|r"..appe|
|00000500| 6e 64 20 74 20 22 5c 74 | a5 63 69 74 79 2d 73 74 |nd t "\t|.city-st|
|00000510| 61 74 65 2d 7a 69 70 a5 | 5c 72 5c 7d 5c 72 22 0d |ate-zip.|\r\}\r".|
|00000520| 09 61 70 70 65 6e 64 20 | 74 20 22 5c 72 5c 5c 64 |.append |t "\r\\d|
|00000530| 61 74 65 5c 7b a5 64 61 | 74 65 a5 5c 7d 20 20 25 |ate\{.da|te.\}  %|
|00000540| 20 6f 70 74 69 6f 6e 61 | 6c 5c 72 22 0d 09 61 70 | optiona|l\r"..ap|
|00000550| 70 65 6e 64 20 74 20 22 | 5c 5c 73 69 67 6e 61 74 |pend t "|\\signat|
|00000560| 75 72 65 5c 7b a5 73 69 | 67 6e 61 74 75 72 65 a5 |ure\{.si|gnature.|
|00000570| 5c 7d 5c 72 22 0d 09 61 | 70 70 65 6e 64 20 74 20 |\}\r"..a|ppend t |
|00000580| 22 5c 72 5c 5c 62 65 67 | 69 6e 5c 7b 64 6f 63 75 |"\r\\beg|in\{docu|
|00000590| 6d 65 6e 74 5c 7d 5c 72 | 22 0d 09 61 70 70 65 6e |ment\}\r|"..appen|
|000005a0| 64 20 74 20 22 5c 72 5c | 5c 62 65 67 69 6e 5c 7b |d t "\r\|\begin\{|
|000005b0| 6c 65 74 74 65 72 5c 7d | 5c 7b 25 5c 72 22 0d 09 |letter\}|\{%\r"..|
|000005c0| 61 70 70 65 6e 64 20 74 | 20 22 5c 74 a5 61 64 64 |append t| "\t.add|
|000005d0| 72 65 73 73 65 65 27 73 | 20 6e 61 6d 65 a5 20 5c |ressee's| name. \|
|000005e0| 5c 5c 5c 5c 74 5c 72 22 | 0d 09 61 70 70 65 6e 64 |\\\\t\r"|..append|
|000005f0| 20 74 20 22 5c 74 a5 61 | 64 64 72 65 73 73 65 65 | t "\t.a|ddressee|
|00000600| 27 73 20 61 64 64 72 65 | 73 73 a5 5c 74 5c 5c 5c |'s addre|ss.\t\\\|
|00000610| 5c 5c 74 5c 72 22 0d 09 | 61 70 70 65 6e 64 20 74 |\\t\r"..|append t|
|00000620| 20 22 5c 74 a5 6d 6f 72 | 65 20 61 64 64 72 65 73 | "\t.mor|e addres|
|00000630| 73 65 65 27 73 20 61 64 | 64 72 65 73 73 a5 5c 74 |see's ad|dress.\t|
|00000640| 5c 5c 5c 5c 5c 72 22 0d | 09 61 70 70 65 6e 64 20 |\\\\\r".|.append |
|00000650| 74 20 22 5c 74 a5 61 64 | 64 72 65 73 73 65 65 27 |t "\t.ad|dressee'|
|00000660| 73 20 63 69 74 79 2d 73 | 74 61 74 65 2d 7a 69 70 |s city-s|tate-zip|
|00000670| a5 5c 72 22 0d 09 61 70 | 70 65 6e 64 20 74 20 22 |.\r"..ap|pend t "|
|00000680| 5c 7d 5c 72 5c 72 5c 5c | 6f 70 65 6e 69 6e 67 5c |\}\r\r\\|opening\|
|00000690| 7b 44 65 61 72 20 a5 61 | 64 64 72 65 73 73 65 65 |{Dear .a|ddressee|
|000006a0| a5 2c 5c 7d 5c 72 22 0d | 09 61 70 70 65 6e 64 20 |.,\}\r".|.append |
|000006b0| 74 20 22 5c 72 a5 6c 65 | 74 74 65 72 20 62 6f 64 |t "\r.le|tter bod|
|000006c0| 79 a5 5c 72 5c 72 5c 5c | 63 6c 6f 73 69 6e 67 5c |y.\r\r\\|closing\|
|000006d0| 7b 53 69 6e 63 65 72 65 | 6c 79 2c 5c 7d 5c 72 22 |{Sincere|ly,\}\r"|
|000006e0| 0d 09 61 70 70 65 6e 64 | 20 74 20 22 5c 72 5c 5c |..append| t "\r\\|
|000006f0| 65 6e 63 6c 5c 7b a5 a5 | 5c 7d 5c 72 5c 5c 63 63 |encl\{..|\}\r\\cc|
|00000700| 5c 7b a5 a5 5c 7d 5c 72 | 22 0d 09 61 70 70 65 6e |\{..\}\r|"..appen|
|00000710| 64 20 74 20 22 5c 72 5c | 5c 65 6e 64 5c 7b 6c 65 |d t "\r\|\end\{le|
|00000720| 74 74 65 72 5c 7d 5c 72 | 5c 72 22 0d 09 61 70 70 |tter\}\r|\r"..app|
|00000730| 65 6e 64 20 74 20 22 5c | 5c 65 6e 64 5c 7b 64 6f |end t "\|\end\{do|
|00000740| 63 75 6d 65 6e 74 5c 7d | 5c 72 22 0d 09 72 65 74 |cument\}|\r"..ret|
|00000750| 75 72 6e 20 24 74 0d 7d | 0d 0d 70 72 6f 63 20 74 |urn $t.}|..proc t|
|00000760| 5f 68 74 6d 6c 20 7b 63 | 6c 61 73 73 20 70 61 72 |_html {c|lass par|
|00000770| 65 6e 74 7d 20 7b 0d 09 | 61 70 70 65 6e 64 20 74 |ent} {..|append t|
|00000780| 20 22 3c 48 54 4d 4c 3e | 5c 72 5c 72 3c 48 45 41 | "<HTML>|\r\r<HEA|
|00000790| 44 3e 5c 72 5c 72 3c 54 | 49 54 4c 45 3e a5 74 69 |D>\r\r<T|ITLE>.ti|
|000007a0| 74 6c 65 a5 3c 2f 54 49 | 54 4c 45 3e 5c 72 22 0d |tle.</TI|TLE>\r".|
|000007b0| 09 61 70 70 65 6e 64 20 | 74 20 22 5c 72 5c 72 3c |.append |t "\r\r<|
|000007c0| 2f 48 45 41 44 3e 5c 72 | 5c 72 3c 42 4f 44 59 3e |/HEAD>\r|\r<BODY>|
|000007d0| 5c 72 22 0d 09 61 70 70 | 65 6e 64 20 74 20 22 5c |\r"..app|end t "\|
|000007e0| 72 a5 62 6f 64 79 a5 5c | 72 5c 72 3c 2f 42 4f 44 |r.body.\|r\r</BOD|
|000007f0| 59 3e 5c 72 22 0d 09 61 | 70 70 65 6e 64 20 74 20 |Y>\r"..a|ppend t |
|00000800| 22 5c 72 3c 2f 48 54 4d | 4c 3e 22 0d 09 72 65 74 |"\r</HTM|L>"..ret|
|00000810| 75 72 6e 20 24 74 0d 7d | 0d 0d 70 72 6f 63 20 74 |urn $t.}|..proc t|
|00000820| 5f 63 70 70 5f 68 65 61 | 64 65 72 20 7b 20 63 6c |_cpp_hea|der { cl|
|00000830| 61 73 73 20 70 61 72 65 | 6e 74 20 7d 20 7b 0d 09 |ass pare|nt } {..|
|00000840| 73 65 74 20 54 65 78 74 | 20 22 5c 72 5c 23 69 66 |set Text| "\r\#if|
|00000850| 6e 64 65 66 20 5f 5b 66 | 69 6c 65 3a 3a 70 72 6f |ndef _[f|ile::pro|
|00000860| 6a 65 63 74 4e 61 6d 65 | 5d 5f 24 7b 63 6c 61 73 |jectName|]_${clas|
|00000870| 73 7d 5f 5c 72 22 0d 09 | 61 70 70 65 6e 64 20 54 |s}_\r"..|append T|
|00000880| 65 78 74 20 22 5c 23 64 | 65 66 69 6e 65 20 5f 5b |ext "\#d|efine _[|
|00000890| 66 69 6c 65 3a 3a 70 72 | 6f 6a 65 63 74 4e 61 6d |file::pr|ojectNam|
|000008a0| 65 5d 5f 24 7b 63 6c 61 | 73 73 7d 5f 5c 72 5c 72 |e]_${cla|ss}_\r\r|
|000008b0| 5c 72 22 0d 09 61 70 70 | 65 6e 64 20 54 65 78 74 |\r"..app|end Text|
|000008c0| 20 22 23 69 6e 63 6c 75 | 64 65 20 5c 22 24 7b 70 | "#inclu|de \"${p|
|000008d0| 61 72 65 6e 74 7d 2e 68 | 5c 22 5c 72 5c 72 22 0d |arent}.h|\"\r\r".|
|000008e0| 09 61 70 70 65 6e 64 20 | 54 65 78 74 20 22 63 6c |.append |Text "cl|
|000008f0| 61 73 73 20 24 7b 63 6c | 61 73 73 7d 3a 20 70 75 |ass ${cl|ass}: pu|
|00000900| 62 6c 69 63 20 24 7b 70 | 61 72 65 6e 74 7d 20 5c |blic ${p|arent} \|
|00000910| 7b 5c 72 22 0d 09 61 70 | 70 65 6e 64 20 54 65 78 |{\r"..ap|pend Tex|
|00000920| 74 20 22 20 20 70 75 62 | 6c 69 63 3a 5c 72 22 0d |t "  pub|lic:\r".|
|00000930| 09 61 70 70 65 6e 64 20 | 54 65 78 74 20 22 5c 74 |.append |Text "\t|
|00000940| 24 7b 63 6c 61 73 73 7d | 28 76 6f 69 64 29 3b 5c |${class}|(void);\|
|00000950| 72 22 0d 09 61 70 70 65 | 6e 64 20 54 65 78 74 20 |r"..appe|nd Text |
|00000960| 22 5c 74 7e 24 7b 63 6c | 61 73 73 7d 28 76 6f 69 |"\t~${cl|ass}(voi|
|00000970| 64 29 3b 5c 72 22 0d 09 | 61 70 70 65 6e 64 20 54 |d);\r"..|append T|
|00000980| 65 78 74 20 22 20 20 70 | 72 6f 74 65 63 74 65 64 |ext "  p|rotected|
|00000990| 3a 5c 72 5c 72 22 0d 09 | 61 70 70 65 6e 64 20 54 |:\r\r"..|append T|
|000009a0| 65 78 74 20 22 20 20 70 | 72 69 76 61 74 65 3a 5c |ext "  p|rivate:\|
|000009b0| 72 22 0d 09 61 70 70 65 | 6e 64 20 54 65 78 74 20 |r"..appe|nd Text |
|000009c0| 22 5c 7d 3b 5c 72 22 0d | 09 61 70 70 65 6e 64 20 |"\};\r".|.append |
|000009d0| 54 65 78 74 20 22 5c 72 | 5c 23 65 6e 64 69 66 5c |Text "\r|\#endif\|
|000009e0| 72 22 0d 09 72 65 74 75 | 72 6e 20 24 54 65 78 74 |r"..retu|rn $Text|
|000009f0| 0d 09 73 65 74 20 64 6f | 63 42 6f 64 79 0d 7d 0d |..set do|cBody.}.|
|00000a00| 0d 70 72 6f 63 20 74 5f | 63 70 70 5f 73 6f 75 72 |.proc t_|cpp_sour|
|00000a10| 63 65 20 7b 20 63 6c 61 | 73 73 20 70 61 72 65 6e |ce { cla|ss paren|
|00000a20| 74 20 7d 20 7b 0d 09 73 | 65 74 20 54 65 78 74 20 |t } {..s|et Text |
|00000a30| 22 5c 72 5c 23 69 6e 63 | 6c 75 64 65 20 5c 22 24 |"\r\#inc|lude \"$|
|00000a40| 7b 63 6c 61 73 73 7d 2e | 68 5c 22 5c 72 5c 72 22 |{class}.|h\"\r\r"|
|00000a50| 0d 7d 0d                |                         |.}.     |        |
+--------+-------------------------+-------------------------+--------+--------+